-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy path4.3.9 trig^m (a+b tan^n+c tan^(2 n))^p.nb
More file actions
10305 lines (10101 loc) · 481 KB
/
4.3.9 trig^m (a+b tan^n+c tan^(2 n))^p.nb
File metadata and controls
10305 lines (10101 loc) · 481 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
(* Content-type: application/mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 7.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 145, 7]
NotebookDataLength[ 481777, 10296]
NotebookOptionsPosition[ 470952, 10016]
NotebookOutlinePosition[ 472779, 10071]
CellTagsIndexPosition[ 472736, 10068]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[Cell[TextData[{
StyleBox["Rules for integrands of the form ",
FontFamily->"Arial"],
Cell[BoxData[
StyleBox[
RowBox[{
SuperscriptBox[
RowBox[{"Trig", "[",
RowBox[{"d", "+",
RowBox[{"e", " ", "x"}]}], "]"}], "m"],
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
SuperscriptBox[
StyleBox[
RowBox[{"Tan", "[",
RowBox[{"d", "+",
RowBox[{"e", " ", "x"}]}], "]"}],
FontSize->16], "n"]}], "+",
RowBox[{"c", " ",
SuperscriptBox[
RowBox[{"Tan", "[",
RowBox[{"d", "+",
RowBox[{"e", " ", "x"}]}], "]"}],
RowBox[{"2", "n"}]]}]}], ")"}], "p"]}],
FontSize->16]],
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9,
3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9},
3.5193325694253187`*^9, {3.5193415004828687`*^9,
3.5193415113404875`*^9}, {3.5193513965602303`*^9,
3.519351397420232*^9}, {3.5194037839416766`*^9, 3.5194037847117205`*^9},
3.52105258275843*^9, 3.5210531741726685`*^9, {3.521057461672199*^9,
3.5210574760242243`*^9}, {3.521059881564049*^9, 3.521059886088057*^9}, {
3.5213902158895197`*^9, 3.521390217543123*^9}, {3.521390827878595*^9,
3.521390829376197*^9}, {3.5214688792561245`*^9, 3.521468879443325*^9}, {
3.523320201951167*^9, 3.523320202247567*^9}, {3.5288596764894824`*^9,
3.5288596768094826`*^9}, {3.529196266260353*^9,
3.5291962665099535`*^9}, {3.5291997050223927`*^9,
3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9,
3.529285215443486*^9}, {3.5295115356999426`*^9,
3.5295115433443794`*^9}, {3.529521412127842*^9, 3.529521414647986*^9}, {
3.529529429975619*^9, 3.529529432955224*^9}, 3.5340074894011116`*^9,
3.5415537711400824`*^9, {3.5415538409034047`*^9, 3.541553841106205*^9}, {
3.5415564120531206`*^9, 3.5415564206955357`*^9},
3.5415565488341613`*^9, {3.5415605631516123`*^9,
3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9},
3.5416162115728135`*^9, {3.5416506679001875`*^9, 3.541650687980216*^9},
3.560533948494043*^9, 3.560538006319724*^9, {3.5605392374714475`*^9,
3.5605392382814484`*^9}, 3.5606250606115856`*^9, 3.5617573869745255`*^9,
3.561757856045182*^9, {3.561761339582559*^9, 3.5617613636025925`*^9}, {
3.5617652519980364`*^9, 3.561765252188037*^9}, {3.561767460571129*^9,
3.5617674608411293`*^9}, 3.5621081762414055`*^9, {3.5621084468550806`*^9,
3.5621084519718895`*^9}, 3.563340740121106*^9},
FontSize->12,
FontWeight->"Bold"]
}], "None"]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9,
3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9,
3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9,
3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9,
3.5450834895895033`*^9}, {3.5454961263762493`*^9,
3.5454961321462574`*^9}, {3.5454963863166127`*^9,
3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9,
3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9,
3.5462145601073203`*^9}, {3.5463149785974817`*^9,
3.5463149794195285`*^9}, {3.5488738437683954`*^9,
3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5505952613798075`*^9,
3.5505952630869055`*^9}, {3.5535321133435373`*^9,
3.5535321173537664`*^9}, {3.5536175341411576`*^9,
3.5536175352411594`*^9}, {3.55396599671187*^9, 3.55396599862998*^9}, {
3.560190530310161*^9, 3.560190628512334*^9}, {3.5602162723838596`*^9,
3.5602162793138695`*^9}, {3.5606249190913877`*^9, 3.560624924321395*^9}, {
3.5617663419995623`*^9, 3.5617663705796027`*^9}, {3.5617666456099873`*^9,
3.561766656350003*^9}, {3.562107691486154*^9, 3.5621077390350375`*^9}, {
3.5621080165751247`*^9, 3.5621080185719285`*^9}, {3.5621081511877613`*^9,
3.5621081511877613`*^9}, {3.5633407304210925`*^9, 3.563340730891093*^9}, {
3.575852587746504*^9, 3.575852593256511*^9}, {3.575852659996605*^9,
3.575852659996605*^9}, {3.575852743186721*^9, 3.575852743186721*^9}, {
3.57585284254686*^9, 3.575852895956935*^9}, {3.6118029543895645`*^9,
3.6118029560496597`*^9}},
TextAlignment->Center,
FontWeight->"Bold"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{Cell[TextData[StyleBox["1.",
FontFamily->"Arial"]], "None"], " ",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
SuperscriptBox[
RowBox[{"Tan", "[",
RowBox[{"d", "+",
RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+",
RowBox[{"c", " ",
SuperscriptBox[
RowBox[{"Tan", "[",
RowBox[{"d", "+",
RowBox[{"e", " ", "x"}]}], "]"}],
RowBox[{"2", "n"}]]}]}], ")"}], "p"],
RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
3.5330827218568287`*^9}, {3.5368634501889877`*^9,
3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454159825478644`*^9,
3.54541600849071*^9}, {3.5454302617354054`*^9, 3.5454302618654056`*^9},
3.5454968316872363`*^9, {3.545499279040663*^9, 3.545499279340663*^9}, {
3.5454995447410345`*^9, 3.5454995452610354`*^9}, 3.54550074137271*^9, {
3.54550107702318*^9, 3.5455010772431803`*^9}, 3.5455014895037575`*^9,
3.5455017531441264`*^9, {3.5455036281367517`*^9, 3.545503628336752*^9},
3.545520129082264*^9, {3.5455208855433235`*^9, 3.545520885973324*^9}, {
3.545520964293433*^9, 3.5455210208435125`*^9}, {3.545529041549029*^9,
3.545529065459062*^9}, {3.5455293083994026`*^9, 3.5455293521794634`*^9}, {
3.5455294046695375`*^9, 3.5455294056895385`*^9}, {3.5455295327397165`*^9,
3.5455295327397165`*^9}, {3.545577377053981*^9, 3.5455774501340833`*^9},
3.545577510944168*^9, {3.5455783597653565`*^9, 3.5455783648653636`*^9}, {
3.56427560291928*^9, 3.5642756031592937`*^9}, {3.5643394540436363`*^9,
3.5643394545740376`*^9}, {3.573921260351218*^9, 3.573921278561244*^9}, {
3.5739213438913355`*^9, 3.5739213521213465`*^9}, {3.573923922924946*^9,
3.573923933584961*^9}, {3.573924597675891*^9, 3.5739245976858907`*^9}, {
3.573924666005986*^9, 3.5739246662359867`*^9}, {3.5739455546552343`*^9,
3.573945575035263*^9}, 3.5739456069553075`*^9, 3.5739471240774317`*^9,
3.611802860450192*^9},
FontSize->12,
FontWeight->"Bold"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\t",
RowBox[{Cell[TextData[StyleBox["1.",
FontFamily->"Arial"]], "None"], " ",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
SuperscriptBox[
RowBox[{"Tan", "[",
RowBox[{"d", "+",
RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+",
RowBox[{"c", " ",
SuperscriptBox[
RowBox[{"Tan", "[",
RowBox[{"d", "+",
RowBox[{"e", " ", "x"}]}], "]"}],
RowBox[{"2", "n"}]]}]}], ")"}], "p"],
RowBox[{"\[DifferentialD]", "x"}], " ",
StyleBox["when",
FontFamily->"Arial",
FontWeight->"Plain"],
StyleBox[" ",
FontFamily->"Arial",
FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
RowBox[{
RowBox[{
SuperscriptBox["b", "2"], "-",
RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}]]]],
"None"]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9,
3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9,
3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9,
3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9,
3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9,
3.5330827218568287`*^9}, {3.5368634501889877`*^9,
3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9,
3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9,
3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9},
3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9,
3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9,
3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9,
3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454159825478644`*^9,
3.54541600849071*^9}, {3.5454302617354054`*^9, 3.5454302618654056`*^9},
3.5454968316872363`*^9, {3.545499279040663*^9, 3.545499279340663*^9}, {
3.5454995447410345`*^9, 3.5454995452610354`*^9}, 3.54550074137271*^9, {
3.54550107702318*^9, 3.5455010772431803`*^9}, 3.5455014895037575`*^9,
3.5455017531441264`*^9, {3.5455036281367517`*^9, 3.545503628336752*^9},
3.545520129082264*^9, {3.5455208855433235`*^9, 3.545520885973324*^9}, {
3.545520964293433*^9, 3.5455210208435125`*^9}, {3.545529041549029*^9,
3.545529065459062*^9}, {3.5455293083994026`*^9, 3.5455293521794634`*^9}, {
3.5455294046695375`*^9, 3.5455294056895385`*^9}, {3.5455295327397165`*^9,
3.5455295327397165`*^9}, {3.545577377053981*^9, 3.5455774501340833`*^9},
3.545577510944168*^9, {3.5455783597653565`*^9, 3.5455783648653636`*^9}, {
3.56427560291928*^9, 3.5642756031592937`*^9}, {3.5643394540436363`*^9,
3.5643394545740376`*^9}, {3.573921260351218*^9, 3.573921278561244*^9}, {
3.5739213438913355`*^9, 3.5739213521213465`*^9}, {3.573923922924946*^9,
3.573923933584961*^9}, {3.573924290725461*^9, 3.5739242925754633`*^9}, {
3.5739245977058907`*^9, 3.573924597715891*^9}, {3.573945557015238*^9,
3.573945575525264*^9}, 3.5739456075153084`*^9, 3.611802862239294*^9},
FontSize->12,
FontWeight->"Bold"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\t\t",
RowBox[{Cell[TextData[StyleBox["1:",
FontFamily->"Arial",
FontColor->RGBColor[1, 0, 0]]], "None"], " ",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
SuperscriptBox[
RowBox[{"Tan", "[",
RowBox[{"d", "+",
RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+",
RowBox[{"c", " ",
SuperscriptBox[
RowBox[{"Tan", "[",
RowBox[{"d", "+",
RowBox[{"e", " ", "x"}]}], "]"}],
RowBox[{"2", "n"}]]}]}], ")"}], "p"],
RowBox[{"\[DifferentialD]", "x"}], " ",
StyleBox["when",
FontFamily->"Arial",
FontWeight->"Plain"],
StyleBox[" ",
FontFamily->"Arial",
FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox["b", "2"], "-",
RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]",
" ",
RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]],
"None"]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9,
3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9},
3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9,
3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9,
3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9,
3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9,
3.5233165475343933`*^9}, {3.5233184331871357`*^9,
3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9,
3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9,
3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9},
3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9,
3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9,
3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
3.5449015667548094`*^9, 3.5449015920048447`*^9}, {3.544901714065016*^9,
3.544901727955035*^9}, 3.544911958524931*^9, {3.5449122781717815`*^9,
3.5449122781717815`*^9}, {3.5455187047402697`*^9,
3.5455187052402706`*^9}, {3.545518898070541*^9, 3.545518911130559*^9}, {
3.5455202868524847`*^9, 3.5455202868524847`*^9}, {3.545520317832528*^9,
3.545520339272558*^9}, {3.545520578812894*^9, 3.545520601212925*^9}, {
3.545520817443228*^9, 3.545520820373232*^9}, {3.545578383065389*^9,
3.545578398615411*^9}, {3.5468155298661933`*^9, 3.546815530086193*^9}, {
3.5468169943482437`*^9, 3.5468170244482856`*^9}, {3.547741532896212*^9,
3.547741537166218*^9}, {3.564336379839837*^9, 3.564336379980237*^9}, {
3.573920859630657*^9, 3.573920904930721*^9}, {3.573921200951135*^9,
3.5739212346711826`*^9}, {3.573921281371248*^9, 3.5739212832512503`*^9},
3.573921362431361*^9, {3.573923938024967*^9, 3.5739239761350203`*^9},
3.573924293625465*^9, {3.573924597735891*^9, 3.5739245977458906`*^9}, {
3.5739455576252384`*^9, 3.5739455760952644`*^9}, {3.5739456079853086`*^9,
3.5739456179253225`*^9}, 3.6118028629993377`*^9},
FontSize->12,
FontWeight->"Bold"],
Cell["Derivation: Algebraic simplification", "Subsubsection",
CellChangeTimes->{
3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
3.497664184390837*^9}, 3.497664250254153*^9, {3.4979866726025763`*^9,
3.497986673616578*^9}, {3.5006614307985444`*^9, 3.5006614323585463`*^9}}],
Cell[TextData[{
"Basis:",
" If ",
Cell[BoxData[
RowBox[{
RowBox[{
SuperscriptBox["b", "2"], "-",
RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}]]],
", then",
" ",
Cell[BoxData[
RowBox[{
RowBox[{"a", "+",
RowBox[{"b", " ", "z"}], "+",
RowBox[{"c", " ",
SuperscriptBox["z", "2"]}]}], "\[Equal]",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"b", "+",
RowBox[{"2", " ", "c", " ", "z"}]}], ")"}], "2"],
RowBox[{"4", " ", "c"}]]}]]]
}], "Subsubsection",
CellChangeTimes->{
3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9},
3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9},
3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9,
3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9},
3.497662667553373*^9, {3.4976642890046206`*^9, 3.497664308286255*^9}, {
3.497664560788298*^9, 3.4976645733775206`*^9}, {3.497989934892706*^9,
3.49798993732631*^9}, {3.5006615536287165`*^9, 3.5006615979187784`*^9}, {
3.5122568170903063`*^9, 3.5122568201635113`*^9}, {3.514414754950553*^9,
3.514414760888892*^9}, {3.5455199465120087`*^9, 3.5455199484820113`*^9}, {
3.545520620272952*^9, 3.545520620272952*^9}, {3.5455206606730084`*^9,
3.545520665263015*^9}, {3.5739209351907635`*^9, 3.5739209513207855`*^9}, {
3.5739210197008815`*^9, 3.5739210197008815`*^9}}],
Cell[TextData[{
"Rule: If ",
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox["b", "2"], "-",
RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]", " ",
RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
", then"
}], "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
3.497990130017849*^9, 3.497990130017849*^9}, {3.49843802295825*^9,
3.49843802295825*^9}, {3.498674382973672*^9, 3.498674382973672*^9}, {
3.49867446038378*^9, 3.498674488383819*^9}, {3.498677308017767*^9,
3.4986773174477797`*^9}, 3.500661530668684*^9, 3.5006616774488897`*^9, {
3.504983348793455*^9, 3.5049833534434614`*^9}, {3.5104559200937495`*^9,
3.5104559335737686`*^9}, {3.510505215498739*^9, 3.51050521598234*^9}, {
3.512256822862316*^9, 3.512256827230324*^9}, {3.514413430650807*^9,
3.5144134393783064`*^9}, {3.5144141286487303`*^9, 3.5144141301528163`*^9},
3.5144143308662963`*^9, {3.5144329887675877`*^9, 3.5144329965364017`*^9}, {
3.514647997175522*^9, 3.514647998860325*^9}, {3.5146627259316177`*^9,
3.514662726501619*^9}, {3.5148395142574844`*^9, 3.5148395195574923`*^9}, {
3.51655651176169*^9, 3.5165565122920914`*^9}, {3.5455189014505453`*^9,
3.5455189059505515`*^9}, {3.545520621872954*^9, 3.5455206267529607`*^9}, {
3.5455784132254314`*^9, 3.5455784132254314`*^9}, {3.546817030288294*^9,
3.546817030288294*^9}, {3.547741548576234*^9, 3.547741548576234*^9}, {
3.5739210579909353`*^9, 3.5739210579909353`*^9}, {3.5739212417611923`*^9,
3.5739212417611923`*^9}, {3.573945621685328*^9, 3.573945621685328*^9}}],
Cell[BoxData[
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
SuperscriptBox[
RowBox[{"Tan", "[",
RowBox[{"d", "+",
RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+",
RowBox[{"c", " ",
SuperscriptBox[
RowBox[{"Tan", "[",
RowBox[{"d", "+",
RowBox[{"e", " ", "x"}]}], "]"}],
RowBox[{"2", "n"}]]}]}], ")"}], "p"],
RowBox[{"\[DifferentialD]",
RowBox[{"x", " ", "\[LongRightArrow]", " ",
FractionBox["1",
RowBox[{
SuperscriptBox["4", "p"],
SuperscriptBox["c", "p"]}]]}]}],
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"b", "+",
RowBox[{"2", "c", " ",
SuperscriptBox[
RowBox[{"Tan", "[",
RowBox[{"d", "+",
RowBox[{"e", " ", "x"}]}], "]"}], "n"]}]}], ")"}],
RowBox[{"2", "p"}]],
RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9,
3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9},
3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9,
3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9,
3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9,
3.4976398417426867`*^9, {3.49766381031778*^9, 3.4976638350282235`*^9}, {
3.49766435104593*^9, 3.497664390373599*^9}, {3.4976647278489914`*^9,
3.4976647419046164`*^9}, {3.497986264165859*^9, 3.4979862650706606`*^9}, {
3.50065955661592*^9, 3.500659559295924*^9}, {3.5006614622785883`*^9,
3.5006614724286027`*^9}, {3.505344690603853*^9, 3.505344690603853*^9}, {
3.509895238753682*^9, 3.509895241013685*^9}, {3.510455839463637*^9,
3.5104558434336424`*^9}, {3.5151878062405863`*^9, 3.515187807030587*^9}, {
3.545578417065437*^9, 3.5455784211654425`*^9}, 3.5739209218307447`*^9, {
3.573921077950963*^9, 3.5739211541510696`*^9}, {3.5739213743613777`*^9,
3.573921384701392*^9}, {3.5739239498049836`*^9, 3.5739239812050276`*^9}, {
3.5739245977458906`*^9, 3.573924597765891*^9}, 3.573945576625265*^9, {
3.5739456084453096`*^9, 3.5739456294153385`*^9}, 3.573945791105565*^9},
TextAlignment->Center,
FontSize->12,
FontWeight->"Bold"],
Cell["Program code:", "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
3.492805165713872*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"Int", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"a_", "+",
RowBox[{"b_.", "*",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"d_.", "+",
RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], "+",
RowBox[{"c_.", "*",
RowBox[{
RowBox[{"tan", "[",
RowBox[{"d_.", "+",
RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_."}]}]}], ")"}], "^",
"p_."}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", " ",
RowBox[{
RowBox[{
RowBox[{"1", "/",
RowBox[{"(",
RowBox[{
RowBox[{"4", "^", "p"}], "*",
RowBox[{"c", "^", "p"}]}], ")"}]}], "*",
RowBox[{"Int", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"b", "+",
RowBox[{"2", "*", "c", "*",
RowBox[{
RowBox[{"Tan", "[",
RowBox[{"d", "+",
RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}], "^",
RowBox[{"(",
RowBox[{"2", "*", "p"}], ")"}]}], ",", "x"}], "]"}]}], " ", "/;",
"\n",
RowBox[{
RowBox[{"FreeQ", "[",
RowBox[{
RowBox[{"{",
RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n"}], "}"}],
",", "x"}], "]"}], " ", "&&", " ",
RowBox[{"EqQ", "[",
RowBox[{"n2", ",",
RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ",
RowBox[{"EqQ", "[",
RowBox[{
RowBox[{
RowBox[{"b", "^", "2"}], "-",
RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ",
RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
3.497664398470013*^9}, {3.497986265944262*^9, 3.497986266927064*^9},
3.4979863675440407`*^9, {3.4979898830226145`*^9, 3.497989898497842*^9},
3.498679361436646*^9, {3.5006592743055253`*^9, 3.5006592786455317`*^9}, {
3.5006615196186686`*^9, 3.5006615252886767`*^9}, {3.5006616594288645`*^9,
3.5006616867589025`*^9}, 3.5012666522100496`*^9, {3.505344690613853*^9,
3.505344690623853*^9}, {3.509895241823686*^9, 3.5098952424836874`*^9}, {
3.510455878063691*^9, 3.5104558800736933`*^9}, {3.51045594181378*^9,
3.5104559554637995`*^9}, {3.5114602677280397`*^9,
3.5114602739180484`*^9}, {3.5130464938278465`*^9, 3.5130464972178507`*^9},
3.514413417801072*^9, {3.5144141233954296`*^9, 3.5144141249175167`*^9}, {
3.5144143237768908`*^9, 3.514414326850067*^9}, {3.5144326670270233`*^9,
3.514432668243825*^9}, {3.5144329684875526`*^9, 3.5144329742751627`*^9}, {
3.5144823553098326`*^9, 3.5144823593970394`*^9}, {3.5146480030879326`*^9,
3.5146480045231347`*^9}, {3.5146627219416122`*^9, 3.514662722511613*^9},
3.5168211652671747`*^9, 3.545492042235829*^9, {3.5455197636517525`*^9,
3.5455197658317556`*^9}, 3.545520686763045*^9, 3.5455295731497726`*^9, {
3.545578425615449*^9, 3.5455784432254734`*^9}, 3.5455855429894156`*^9, {
3.546799207006177*^9, 3.546799207016177*^9}, {3.546817041268309*^9,
3.5468170523983245`*^9}, 3.5473183713395834`*^9, {3.5477415402962227`*^9,
3.5477415524362392`*^9}, {3.573921305161281*^9, 3.573921327901313*^9}, {
3.5739213922914033`*^9, 3.573921428491454*^9}, 3.573921481431528*^9,
3.5739215784616632`*^9, {3.5739228349934225`*^9, 3.573922838473428*^9}, {
3.573923952384987*^9, 3.5739240123250713`*^9}, {3.5739240707951527`*^9,
3.573924101995197*^9}, 3.573924597775891*^9, {3.5739246858160143`*^9,
3.573924685826014*^9}, {3.573945633785345*^9, 3.5739456433753586`*^9}, {
3.5739458155555997`*^9, 3.5739458158356*^9}, {3.573945891725706*^9,
3.573945919555745*^9}, {3.573945950195788*^9, 3.5739459506257887`*^9},
3.573946005465865*^9, {3.7061395512453938`*^9, 3.706139551255394*^9}, {
3.715457123706411*^9, 3.715457137090176*^9}},
Background->GrayLevel[0.85]],
Cell[BoxData[
RowBox[{
RowBox[{"Int", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"a_", "+",
RowBox[{"b_.", "*",
RowBox[{
RowBox[{"cot", "[",
RowBox[{"d_.", "+",
RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n_."}]}], "+",
RowBox[{"c_.", "*",
RowBox[{
RowBox[{"cot", "[",
RowBox[{"d_.", "+",
RowBox[{"e_.", "*", "x_"}]}], "]"}], "^", "n2_."}]}]}], ")"}], "^",
"p_."}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", " ",
RowBox[{
RowBox[{
RowBox[{"1", "/",
RowBox[{"(",
RowBox[{
RowBox[{"4", "^", "p"}], "*",
RowBox[{"c", "^", "p"}]}], ")"}]}], "*",
RowBox[{"Int", "[",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"b", "+",
RowBox[{"2", "*", "c", "*",
RowBox[{
RowBox[{"Cot", "[",
RowBox[{"d", "+",
RowBox[{"e", "*", "x"}]}], "]"}], "^", "n"}]}]}], ")"}], "^",
RowBox[{"(",
RowBox[{"2", "*", "p"}], ")"}]}], ",", "x"}], "]"}]}], " ", "/;",
"\n",
RowBox[{
RowBox[{"FreeQ", "[",
RowBox[{
RowBox[{"{",
RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n"}], "}"}],
",", "x"}], "]"}], " ", "&&", " ",
RowBox[{"EqQ", "[",
RowBox[{"n2", ",",
RowBox[{"2", "*", "n"}]}], "]"}], " ", "&&", " ",
RowBox[{"EqQ", "[",
RowBox[{
RowBox[{
RowBox[{"b", "^", "2"}], "-",
RowBox[{"4", "*", "a", "*", "c"}]}], ",", "0"}], "]"}], " ", "&&", " ",
RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9},
3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9,
3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9,
3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9,
3.4976395861674376`*^9, 3.4976397432129135`*^9, 3.4976633737510133`*^9,
3.497663791067346*^9, 3.497664242469739*^9, {3.49766439658241*^9,
3.497664398470013*^9}, {3.497986265944262*^9, 3.497986266927064*^9},
3.4979863675440407`*^9, {3.4979898830226145`*^9, 3.497989898497842*^9},
3.498679361436646*^9, {3.5006592743055253`*^9, 3.5006592786455317`*^9}, {
3.5006615196186686`*^9, 3.5006615252886767`*^9}, {3.5006616594288645`*^9,
3.5006616867589025`*^9}, 3.5012666522100496`*^9, {3.505344690613853*^9,
3.505344690623853*^9}, {3.509895241823686*^9, 3.5098952424836874`*^9}, {
3.510455878063691*^9, 3.5104558800736933`*^9}, {3.51045594181378*^9,
3.5104559554637995`*^9}, {3.5114602677280397`*^9,
3.5114602739180484`*^9}, {3.5130464938278465`*^9, 3.5130464972178507`*^9},
3.514413417801072*^9, {3.5144141233954296`*^9, 3.5144141249175167`*^9}, {
3.5144143237768908`*^9, 3.514414326850067*^9}, {3.5144326670270233`*^9,
3.514432668243825*^9}, {3.5144329684875526`*^9, 3.5144329742751627`*^9}, {
3.5144823553098326`*^9, 3.5144823593970394`*^9}, {3.5146480030879326`*^9,
3.5146480045231347`*^9}, {3.5146627219416122`*^9, 3.514662722511613*^9},
3.5168211652671747`*^9, 3.545492042235829*^9, {3.5455197636517525`*^9,
3.5455197658317556`*^9}, 3.545520686763045*^9, 3.5455295731497726`*^9, {
3.545578425615449*^9, 3.5455784432254734`*^9}, 3.5455855429894156`*^9, {
3.546799207006177*^9, 3.546799207016177*^9}, {3.546817041268309*^9,
3.5468170523983245`*^9}, 3.5473183713395834`*^9, {3.5477415402962227`*^9,
3.5477415524362392`*^9}, {3.573921305161281*^9, 3.573921327901313*^9}, {
3.5739213922914033`*^9, 3.573921428491454*^9}, 3.573921481431528*^9,
3.5739215784616632`*^9, {3.5739228349934225`*^9, 3.573922838473428*^9}, {
3.573923952384987*^9, 3.5739240123250713`*^9}, {3.5739240707951527`*^9,
3.573924101995197*^9}, {3.573924203595339*^9, 3.573924214765354*^9}, {
3.57392471149605*^9, 3.5739247235860667`*^9}, {3.5739456522353706`*^9,
3.57394565865538*^9}, 3.573945819425605*^9, {3.573945901005719*^9,
3.573945954435794*^9}, 3.5739460073558683`*^9, {3.7061395512653937`*^9,
3.7061395512753935`*^9}, {3.7154571237244115`*^9, 3.715457137108177*^9}},
Background->GrayLevel[0.85]],
Cell["", "Subsubsection",
CellDingbat->None,
CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\t\t",
RowBox[{Cell[TextData[StyleBox["2:",
FontFamily->"Arial",
FontColor->RGBColor[1, 0, 0]]], "None"], " ",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
SuperscriptBox[
RowBox[{"Tan", "[",
RowBox[{"d", "+",
RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+",
RowBox[{"c", " ",
SuperscriptBox[
RowBox[{"Tan", "[",
RowBox[{"d", "+",
RowBox[{"e", " ", "x"}]}], "]"}],
RowBox[{"2", "n"}]]}]}], ")"}], "p"],
RowBox[{"\[DifferentialD]", "x"}], " ",
StyleBox["when",
FontFamily->"Arial",
FontWeight->"Plain"],
StyleBox[" ",
FontFamily->"Arial",
FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox["b", "2"], "-",
RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]",
" ",
RowBox[{"p", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]]],
"None"]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
3.4965117206885777`*^9, 3.5192471175756674`*^9, {3.5192587973599553`*^9,
3.5192588081399703`*^9}, {3.519321495105319*^9, 3.5193214991925263`*^9},
3.5193247857072587`*^9, {3.5194051897010813`*^9, 3.5194051902791147`*^9}, {
3.5194055551249824`*^9, 3.5194055708408813`*^9}, {3.519405711316916*^9,
3.51940572904193*^9}, {3.519410772192028*^9, 3.5194107776364374`*^9}, {
3.519413782484516*^9, 3.519413782827717*^9}, {3.519767588664174*^9,
3.519767611128214*^9}, {3.5197937941314034`*^9, 3.519793794568204*^9}, {
3.5197947626591043`*^9, 3.519794764749508*^9}, {3.519794865354085*^9,
3.519794874355301*^9}, {3.523218063086026*^9, 3.523218070356036*^9}, {
3.523316514684347*^9, 3.523316514684347*^9}, {3.5233165475343933`*^9,
3.5233165475343933`*^9}, {3.5233184331871357`*^9,
3.5233184334271364`*^9}, {3.5273599103435545`*^9, 3.527359910608755*^9}, {
3.5326424241029196`*^9, 3.53264242435292*^9}, {3.5326584126048727`*^9,
3.532658412794873*^9}, {3.532726454021428*^9, 3.5327264542814283`*^9}, {
3.5327554047263184`*^9, 3.532755404993334*^9}, {3.532798666112293*^9,
3.532798676322307*^9}, {3.5328778343810363`*^9, 3.5328778343810363`*^9},
3.5330758294771795`*^9, {3.5330827570868783`*^9, 3.533082757336879*^9}, {
3.534975097668671*^9, 3.534975097888672*^9}, {3.536863459221404*^9,
3.536863459439804*^9}, {3.540264711953947*^9, 3.5402647253239655`*^9}, {
3.540264783504047*^9, 3.540264783504047*^9}, {3.540502117527218*^9,
3.540502117997218*^9}, {3.540502551737826*^9, 3.540502551937826*^9}, {
3.5449015667548094`*^9, 3.5449015920048447`*^9}, {3.544901714065016*^9,
3.544901727955035*^9}, 3.544911958524931*^9, {3.5449122781717815`*^9,
3.5449122781717815`*^9}, {3.5455187047402697`*^9,
3.5455187052402706`*^9}, {3.545518898070541*^9, 3.545518911130559*^9}, {
3.5455202868524847`*^9, 3.5455202868524847`*^9}, {3.545520317832528*^9,
3.545520339272558*^9}, {3.545520578812894*^9, 3.545520601212925*^9}, {
3.545520817443228*^9, 3.545520820373232*^9}, {3.545578383065389*^9,
3.545578398615411*^9}, {3.5468155298661933`*^9, 3.546815530086193*^9}, {
3.5468169943482437`*^9, 3.5468170244482856`*^9}, {3.547741532896212*^9,
3.547741537166218*^9}, {3.564336379839837*^9, 3.564336379980237*^9}, {
3.573920859630657*^9, 3.573920904930721*^9}, {3.573921200951135*^9,
3.5739212346711826`*^9}, {3.573921281371248*^9, 3.5739212832512503`*^9},
3.573921362431361*^9, {3.573921701611836*^9, 3.5739217122218513`*^9}, {
3.5739239535049887`*^9, 3.5739239543249903`*^9}, {3.5739240246150885`*^9,
3.573924025165089*^9}, 3.573924294525466*^9, {3.573924597775891*^9,
3.5739245977858906`*^9}, {3.573945558175239*^9, 3.573945577285266*^9},
3.57394560896531*^9, {3.573945666515391*^9, 3.573945666515391*^9},
3.611802863552369*^9},
FontSize->12,
FontWeight->"Bold"],
Cell["Derivation: Piecewise constant extraction", "Subsubsection",
CellChangeTimes->{
3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9},
3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9,
3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9},
3.497639710530856*^9, 3.4976397495153246`*^9, 3.4976637968549566`*^9, {
3.497664121273126*^9, 3.4976641274819374`*^9}, {3.4976641823940334`*^9,
3.497664184390837*^9}, 3.497664250254153*^9, {3.4979866726025763`*^9,
3.497986673616578*^9}, {3.5006614307985444`*^9, 3.5006614323585463`*^9}, {
3.573921737401886*^9, 3.5739217424318933`*^9}}],
Cell[TextData[{
"Basis:",
" If ",
Cell[BoxData[
RowBox[{
RowBox[{
SuperscriptBox["b", "2"], "-",
RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}]]],
", then",
" ",
Cell[BoxData[
RowBox[{
RowBox[{
SubscriptBox["\[PartialD]", "x"],
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
RowBox[{"F", "[", "x", "]"}]}], "+",
RowBox[{"c", " ",
SuperscriptBox[
RowBox[{"F", "[", "x", "]"}], "2"]}]}], ")"}], "p"],
SuperscriptBox[
RowBox[{"(",
RowBox[{"b", "+",
RowBox[{"2", " ", "c", " ",
RowBox[{"F", "[", "x", "]"}]}]}], ")"}],
RowBox[{"2", "p"}]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
CellChangeTimes->{
3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9},
3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9},
3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9,
3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9},
3.497662667553373*^9, {3.4976642890046206`*^9, 3.497664308286255*^9}, {
3.497664560788298*^9, 3.4976645733775206`*^9}, {3.497989934892706*^9,
3.49798993732631*^9}, {3.5006615536287165`*^9, 3.5006615979187784`*^9}, {
3.5122568170903063`*^9, 3.5122568201635113`*^9}, {3.514414754950553*^9,
3.514414760888892*^9}, {3.5455199465120087`*^9, 3.5455199484820113`*^9}, {
3.545520620272952*^9, 3.545520620272952*^9}, {3.5455206606730084`*^9,
3.545520665263015*^9}, {3.5739209351907635`*^9, 3.5739209513207855`*^9}, {
3.5739210197008815`*^9, 3.5739210197008815`*^9}, {3.573921841272032*^9,
3.573921841272032*^9}, {3.573921933662161*^9, 3.573921933662161*^9}, {
3.5739457440654993`*^9, 3.5739457455055017`*^9}}],
Cell[TextData[{
"Rule: If ",
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox["b", "2"], "-",
RowBox[{"4", "a", " ", "c"}]}], "\[Equal]", "0"}], " ", "\[And]", " ",
RowBox[{"p", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]],
", then"
}], "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
3.4975778737222147`*^9, 3.4975778945722437`*^9}, {3.4976396822792068`*^9,
3.49763968986082*^9}, {3.497639771433363*^9, 3.49763978104298*^9}, {
3.4976638984111347`*^9, 3.4976639153215647`*^9}, {3.4976645939383564`*^9,
3.497664598805565*^9}, {3.4976646480080514`*^9, 3.4976646992229414`*^9}, {
3.497990130017849*^9, 3.497990130017849*^9}, {3.49843802295825*^9,
3.49843802295825*^9}, {3.498674382973672*^9, 3.498674382973672*^9}, {
3.49867446038378*^9, 3.498674488383819*^9}, {3.498677308017767*^9,
3.4986773174477797`*^9}, 3.500661530668684*^9, 3.5006616774488897`*^9, {
3.504983348793455*^9, 3.5049833534434614`*^9}, {3.5104559200937495`*^9,
3.5104559335737686`*^9}, {3.510505215498739*^9, 3.51050521598234*^9}, {
3.512256822862316*^9, 3.512256827230324*^9}, {3.514413430650807*^9,
3.5144134393783064`*^9}, {3.5144141286487303`*^9, 3.5144141301528163`*^9},
3.5144143308662963`*^9, {3.5144329887675877`*^9, 3.5144329965364017`*^9}, {
3.514647997175522*^9, 3.514647998860325*^9}, {3.5146627259316177`*^9,
3.514662726501619*^9}, {3.5148395142574844`*^9, 3.5148395195574923`*^9}, {
3.51655651176169*^9, 3.5165565122920914`*^9}, {3.5455189014505453`*^9,
3.5455189059505515`*^9}, {3.545520621872954*^9, 3.5455206267529607`*^9}, {
3.5455784132254314`*^9, 3.5455784132254314`*^9}, {3.546817030288294*^9,
3.546817030288294*^9}, {3.547741548576234*^9, 3.547741548576234*^9}, {
3.5739210579909353`*^9, 3.5739210579909353`*^9}, {3.5739212417611923`*^9,
3.5739212417611923`*^9}, {3.5739217345018826`*^9,
3.5739217345018826`*^9}, {3.573945668705394*^9, 3.573945668705394*^9}}],
Cell[BoxData[
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
SuperscriptBox[
RowBox[{"Tan", "[",
RowBox[{"d", "+",
RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+",
RowBox[{"c", " ",
SuperscriptBox[
RowBox[{"Tan", "[",
RowBox[{"d", "+",
RowBox[{"e", " ", "x"}]}], "]"}],
RowBox[{"2", "n"}]]}]}], ")"}], "p"],
RowBox[{"\[DifferentialD]",
RowBox[{"x", " ", "\[LongRightArrow]", " ",
FractionBox[
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", " ",
SuperscriptBox[
RowBox[{"Tan", "[",
RowBox[{"d", "+",
RowBox[{"e", " ", "x"}]}], "]"}], "n"]}], "+",
RowBox[{"c", " ",
SuperscriptBox[
RowBox[{"Tan", "[",
RowBox[{"d", "+",
RowBox[{"e", " ", "x"}]}], "]"}],
RowBox[{"2", "n"}]]}]}], ")"}], "p"],
SuperscriptBox[
RowBox[{"(",
RowBox[{"b", "+",
RowBox[{"2", " ", "c", " ",
SuperscriptBox[
RowBox[{"Tan", "[",
RowBox[{"d", "+",
RowBox[{"e", " ", "x"}]}], "]"}], "n"]}]}], ")"}],
RowBox[{"2", "p"}]]]}]}],
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"b", "+",
RowBox[{"2", "c", " ",
SuperscriptBox[
RowBox[{"Tan", "[",
RowBox[{"d", "+",
RowBox[{"e", " ", "x"}]}], "]"}], "n"]}]}], ")"}],
RowBox[{"2", "p"}]],
RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9,
3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9,
3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9,
3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {